140 HPLOT XC +39,99 TO XC +42,99 TO XC +43,100 TO XC +38,100 TO XC +38,101 TO XC +43,101
150 HCOLOR= 3: REM FACE
160 HPLOT XC +39,102 TO XC +42,102 TO XC +42,103 TO XC +39,103 TO XC +40,104 TO XC +41,104
170 HCOLOR= F4: REM SHOULDERS
180 HPLOT XC +37,105 TO XC +44,105 TO XC +45,106 TO XC +36,106 TO XC +35,107 TO XC +46,107 TO XC +47,108 TO XC +34,108 TO XC +33,109 TO XC +48,109
190 HPLOT XC +48,110 TO XC +38,110: HPLOT XC +35,110 TO XC +32,110: HPLOT XC +33,112 TO XC +34,112 TO XC +34,113 TO XC +37,113: HPLOT XC +44,112 TO XC +46,111 TO XC +44,111
200 HPLOT XC +40,116 TO XC +40,119 TO XC +39,121 TO XC +39,116 TO XC +38,123 TO XC +38,113 TO XC +37,113 TO XC +37,129 TO XC +36,129 TO XC +36,119
210 HPLOT XC +35,123 TO XC +35,130 TO XC +33,130 TO XC +40,119
220 HPLOT XC +41,113 TO XC +41,123 TO XC +42,112 TO XC +42,130 TO XC +43,131 TO XC +43,112 TO XC +44,113 TO XC +44,131 TO XC +47,131 TO XC +45,130 TO XC +45,114
230 IF F4 = 6 THEN RETURN
240 HCOLOR= 0
250 HPLOT XC +41,105 TO XC +43,105: HPLOT XC +40,107 TO XC +42,107: HPLOT XC +39,109 TO XC +41,109
260 HCOLOR= F4
270 RETURN
280 REM ARM
290 IF P >5 THEN E = (P -5) *30 +10:F = 60: GOTO 550
300 HCOLOR= F4
310 HPLOT E -6,F -2 TO E +6,F -2: HPLOT E -6,F -1 TO E +7,F -1: HPLOT E -6,F TO E +24,F: HPLOT E -6,F +1 TO E +9,F +1: HPLOT E -6,F +2 TO E +10,F +2
320 HPLOT E -1,F +3 TO E +8,F +3: HPLOT E -13,F +4 TO E +22,F +4: HPLOT E -13,F +5 TO E +22,F +5: HPLOT E -13,F +6 TO E +22,F +6: HPLOT E -13,F +7 TO E +22,F +7
330 HPLOT E -8,F +9 TO E -7,F +9 TO E -7,F +10 TO E -8,F +10: HPLOT E -1,F +9 TO E,F +9 TO E,F +10 TO E -1,F +10: HPLOT E +10,F +9 TO E +11,F +9 TO E +11,F +10
340 HPLOT E +10,F +10: HPLOT E +17,F +9 TO E +18,F +9 TO E +18,F +10 TO E +17,F +10
350 IF F4 = 6 THEN 390
360 HCOLOR= 0
370 HPLOT E +1,F -1 TO E +2,F -1: HPLOT E +3,F +2 TO E +1,F TO E +3,F: HPLOT E,F +2 TO E +2,F TO E,F
380 HPLOT E,F -1: HPLOT E +1,F +2: HPLOT E +1,F
390 HCOLOR= 3
400 HPLOT E -12,F +8 TO E -9,F +11 TO E +18,F +11 TO E +21,F +8
410 RETURN
420 REM APC
430 IF P >5 THEN E = (P -5) *30 +10:F = 60: GOTO 620
440 HCOLOR= F4
450 HPLOT E +14,F -2 TO E -5,F -2 TO E -6,F -1 TO E +14,F -1 TO E +14,F TO E -7,F TO E -8,F +1 TO E +14,F +1 TO E +14,F +2 TO E -9,F +2
460 HPLOT E -10,F +3 TO E +14,F +3 TO E +14,F +4 TO E -11,F +4 TO E -11,F +5 TO E +15,F +5
470 IF F4 = 6 THEN GOTO 510
480 HCOLOR= 0
490 HPLOT E +1,F -2 TO E +2,F -2: HPLOT E -2,F -1 TO E +5,F -1: HPLOT E,F TO E +3,F: HPLOT E -1,F +3 TO E +2,F: HPLOT E +4,F +3 TO E +1,F
500 HPLOT E +1,F -1 TO E +1,F +1 TO E +2,F +2
510 HCOLOR= 3
520 HPLOT E -10,F +6 TO E -8,F +8 TO E +12,F +8 TO E +14,F +6: HPLOT E -7,F +7: HPLOT E -3,F +7: HPLOT E +1,F +7: HPLOT E +5,F +7: HPLOT E +9,F +7
530 HPLOT E -2,F -3 TO E,F -3 TO E,F -4 TO E -6,F -4
540 RETURN
550 REM ARM
560 HCOLOR= F4
570 HPLOT E -2,F -2 TO E +3,F -2: HPLOT E -2,F -1 TO E +14,F -1: HPLOT E -2,F TO E +5,F: HPLOT E,F +1 TO E +6,F +1
580 HPLOT E -7,F +2 TO E +11,F +2 TO E +11,F +3 TO E -7,F +3
590 HCOLOR= 3
600 HPLOT E -5,F +4: HPLOT E +10,F +4: HPLOT E -4,F +5 TO E +9,F +5
610 RETURN
620 REM APC
630 HCOLOR= F4
640 HPLOT E +2,F -2 TO E +14,F -2 TO E +14,F -1 TO E +1,F -1
650 HPLOT E,F TO E +14,F TO E +14,F +1 TO E -1,F +1 TO E -2,F +2 TO E +14,F +2: HPLOT E,F TO E -3,F +4 TO E -2,F +4 TO E -2,F +3
660 HCOLOR= 3
670 HPLOT E -1,F +3 TO E -1,F +5 TO E,F +6 TO E +12,F +6 TO E +14,F +4 TO E +14,F +3 TO E -1,F +3
680 RETURN
690 REM X
700 HCOLOR= F4: REM DRAW SP
705 IF P >5 THEN E = (P -5) *30 +20:F = 64: GOTO 840
710 HPLOT E -17,F -3 TO E -17,F -1 TO E -16,F -1 TO E -16,F -3 TO E -15,F -2 TO E -18,F -2
720 HPLOT E -11,F -3 TO E -11,F -1 TO E -10,F -1 TO E -10,F -3 TO E -9,F -2 TO E -12,F -2
730 HPLOT E -5,F -3 TO E -5,F -1 TO E -4,F -1 TO E -4,F -3 TO E -3,F -2 TO E -6,F -2
740 HPLOT E +1,F -3 TO E +1,F -1 TO E +2,F -1 TO E +2,F -3 TO E +3,F -2 TO E -1,F -2
750 HPLOT E +8,F -5 TO E -24,F -5 TO E -24,F -6 TO E +8,F -6 TO E +8,F -7 TO E -23,F -7 TO E -22,F -8 TO E +7,F -8
760 HPLOT E +2,F -9 TO E -7,F -9 TO E -7,F -10 TO E +2,F -10 TO E +2,F -11 TO E -5,F -11 TO E -5,F -12 TO E +2,F -12 TO E +2,F -13 TO E -5,F -13
770 HCOLOR= 3
780 HPLOT E -23,F -4 TO E -17,F TO E +2,F TO E +6,F -4
790 HPLOT E -5,F -12 TO E -22,F -20 TO E -5,F -12 TO E -5,F -11 TO E -22,F -19
800 IF F4 = 6 THEN RETURN
810 HCOLOR= 0
820 HPLOT E -1,F -12 TO E -1,F -10: HPLOT E -3,F -11 TO E +1,F -11: HPLOT E -2,F -9 TO E,F -11: HPLOT E,F -9 TO E -2,F -11
830 RETURN
840 HCOLOR= F4: REM DIST SP
845 HPLOT E -16,F -2 TO E -16,F -1 TO E -15,F -1 TO E -15,F -2: HPLOT E -12,F -2 TO E -12,F -1 TO E -11,F -1 TO E -11,F -2
848 HPLOT E -8,F -2 TO E -8,F -1 TO E -7,F -1 TO E -7,F -2: HPLOT E -4,F -2 TO E -4,F -1 TO E -3,F -1 TO E -3,F -2
850 HPLOT E -20,F -3 TO E,F -3 TO E -1,F -4 TO E -19,F -4: HPLOT E -3,F -5 TO E -7,F -5 TO E -7,F -6 TO E -3,F -6 TO E -3,F -7 TO E -7,F -7
860 HCOLOR= 3
870 HPLOT E -19,F -2 TO E -16,F TO E -3,F TO E -1,F -2: HPLOT E -7,F -7 TO E -18,F -11
880 RETURN
890 REM INIT
900 FOR I = 1 TO 10
910 PA(I,1) = 1
920 PB(I,1) = 1
930 NEXT I
940 HOME
950 PRINT "FIRST PLAYER: ENTER ANY NUMBER"
960 INPUT X
970 HOME
980 PRINT "SELECT UNIT TYPE"
990 PRINT
1000 CALL 768
1010 PRINT "1 = INFANTRY"
1020 PRINT "2 = TANK"
1030 PRINT "3 = PERSONNEL CARRIER"
1040 PRINT "4 = LEADER"
1050 PRINT "5 = ARTILLERY"
1060 PRINT : PRINT : POKE 34,9
1070 REM FIRST PLAYER
1080 FOR N = 1 TO 10
1090 PRINT "UNIT # ";N;" TYPE = ": INPUT TYPE
1100 IF TYPE <1 OR TYPE >5 THEN 1090
1110 PA(N,6) = TYPE
1120 PA(N,0) = N: REM UNIT #
1130 REM SET MORALE,MOB,AMMO
1140 ON TYPE GOSUB 1620,1680,1740,1780,1840
1150 NEXT N
1160 GOSUB 2260
1170 IF CT < >0 THEN GOTO 2220
1180 GOTO 1480
1190 REM SECOND PLAYER
1195 PRINT : PRINT : POKE 34,9
1200 FOR N = 1 TO 10
1210 PRINT "UNIT # ";N;" TYPE = ": INPUT TYPE
1220 IF TYPE <1 OR TYPE >5 THEN 1210
1230 PB(N,6) = TYPE
1240 PB(N,0) = N: REM UNIT #
1250 ON TYPE GOSUB 1920,1980,2040,2080,2140
1260 NEXT N
1270 GOSUB 2390
1280 TEXT : HOME
1285 POKE 34,0
1290 PRINT "WHICH SCENARIO WILL YOU PLAY ?
1300 PRINT
1310 PRINT
1320 PRINT "1 = THE AMBUSH. FIRST PLAYER'S UNITS,"
1330 PRINT "IN THE NORTH WEST CORNER OF THE MAP,"
1340 PRINT "ASSAULT THE SECOND PLAYER'S UNITS, "
1350 PRINT "WHICH ARE TO THE SOUTH."
1360 PRINT
1370 PRINT "2 = THE MEETING ENGAGEMENT. THE FIRST"
1380 PRINT "PLAYER'S UNITS ENTER ALONG THE WEST"
1390 PRINT "MAP EDGE; THE SECOND PLAYER'S UNITS"
1400 PRINT "ENTER ALONG THE EAST EDGE. EACH"
1410 PRINT "PLAYER SHOULD TRY TO FIGHT THE BATTLE"
1420 PRINT "ON THE OTHER PLAYER'S SIDE OF THE MAP."
1430 PRINT
1440 PRINT "3 = THE BREAKOUT. THE FIRST PLAYER'S"
1450 PRINT "UNITS ARE IN THE MIDDLE OF THE MAP,"
1460 PRINT "SURROUNDED BY THE SECOND PLAYER'S UNITS."
1470 GOTO 2220
1480 REM UNIT TYPES FOR 2ND PLAYER
1490 TEXT : HOME
1500 CALL -198
1510 PRINT "SECOND PLAYER: ENTER ANY NUMBER"
1520 INPUT X
1530 HOME
1540 CALL 768
1550 PRINT "SELECT UNIT TYPES"
1560 PRINT
1570 PRINT "1 = INFANTRY"
1580 PRINT "2 = TANK"
1590 PRINT "3 = PERSONNEL CARRIER"
1600 PRINT "4 = LEADER"
1605 PRINT "5 = ARTILLERY"
1610 GOTO 1195
1620 REM INFANTRY
1630 PA(N,3) = 2: REM MOBILITY
1640 PA(N,2) = 2
1650 PA(N,8) = 60: REM EXTRA AMMO
1660 PA(N,7) = 20:PA(N,10) = 1
1665 PA(N,11) = 1: REM MINES
1670 RETURN
1680 REM ARMOR
1690 PA(N,3) = 6
1700 PA(N,8) = 1
1710 PA(N,2) = 2
1720 PA(N,9) = 20:PA(N,10) = 20
1730 RETURN
1740 REM APC
1750 PA(N,3) = 6
1760 PA(N,2) = 2
1770 RETURN
1780 REM LEADER
1790 PA(N,7) = 20
1800 PA(N,3) = 2
1810 PA(N,8) = 60
1820 PA(N,2) = 6
1830 RETURN
1840 REM SP ARTY
1850 PA(N,2) = 2
1860 PA(N,9) = 40
1870 PA(N,10) = 40
1880 PA(N,3) = 4
1890 PA(N,8) = 2
1900 PA(N,5) = 0
1910 RETURN
1920 REM 2ND PLAYER'S INFANTRY
1930 PB(N,3) = 2
1940 PB(N,8) = 60: REM EXTRA AMMO
1950 PB(N,2) = 2
1960 PB(N,7) = 20:PB(N,10) = 1
1965 PB(N,11) = 1
1970 RETURN
1980 REM ARMOR
1990 PB(N,3) = 6
2000 PB(N,2) = 2
2010 PB(N,8) = 1
2020 PB(N,9) = 20:PB(N,10) = 20
2030 RETURN
2040 REM APC
2050 PB(N,3) = 6
2060 PB(N,2) = 2
2070 RETURN
2080 REM LEADER
2090 PB(N,7) = 20
2100 PB(N,3) = 2
2110 PB(N,8) = 60
2120 PB(N,2) = 6
2130 RETURN
2140 REM SP ARTY
2150 PB(N,2) = 2
2160 PB(N,9) = 40
2170 PB(N,10) = 40
2180 PB(N,3) = 4
2190 PB(N,8) = 2
2200 PB(N,5) = 0
2210 RETURN
2220 REM LOAD MAP DATA
2230 HX%(0,1) = 4: REM OFF MAP
2240 GO = 4
2242 POKE 103,1: POKE 104,64: POKE 16384,0
2250 PRINT D$;"CHAIN INIT"
2260 REM DRAW FORCES
2270 HGR : POKE 49234,1
2280 F4 = 1
2290 FOR N = 1 TO 10
2300 IF PA(N,6) = 1 THEN XC = B *20:B = B +1: GOSUB 120
2310 IF PA(N,6) = 2 THEN E = 30 +(P *40):F = 80:P = P +1: GOSUB 280
2320 IF PA(N,6) = 3 THEN E = 30 +(P *40):F = 80:P = P +1: GOSUB 420
2330 IF PA(N,6) = 4 THEN TU = TU +1:XC = 200 -(TU *20): GOSUB 120
2340 IF PA(N,6) = 5 THEN E = 30 +(P *40) +10:F = 88:P = P +1: GOSUB 700
2350 NEXT N
2360 FOR TM = 1 TO 800: NEXT TM
2370 XC = 0:E = 0:F = 0:P = 0:TU = 0:B = 0
2380 RETURN
2390 REM DRAW PL2 FORCES
2400 HGR : POKE 49234,1
2410 F4 = 6
2420 FOR N = 1 TO 10
2430 IF PB(N,6) = 1 THEN XC = B *20:B = B +1: GOSUB 120
2440 IF PB(N,6) = 2 THEN E = 30 +(P *40):F = 80:P = P +1: GOSUB 280
2450 IF PB(N,6) = 3 THEN E = 30 +(P *40):F = 80:P = P +1: GOSUB 420
2460 IF PB(N,6) = 4 THEN TU = TU +1:XC = 200 -(TU *20): GOSUB 120
2465 IF PB(N,6) = 5 THEN E = 30 +(P *40) +10:F = 88:P = P +1: GOSUB 700